AppPrinting AppName Form1, PrintingLbl Printing DocumentLbl CancelCmd Cancel StartPrintTimer CancelCmd_Click pABORT true6 CancelPrintZ Form_Click Form_LoadE PrintLine HeaderLine. PageSize LineSpace LinesPerPage} LineLength CurrentLinec PageInfo TextMetricD printerACTIONO DocumetName Captionc DocName false Screen MousePointer NORMAL GetTextMetrics Printer! tmHeight tmExternalLeading GetDeviceCapsr VERTRES PageNumber SetActiveWindow PrinterHEADER delay_itS Pagee AppPrinting DocumetLblU App_FileName PrintingLblL DocumentLbl_Click CR_Indexj App_Data CRLFX CR_End IndexStart IndexEnd App_PrintCopyNumber DocumentLbl Modal: MODELESS- CurrentX CurrentY FontName Fonts Height LineSpae ScaleMode PrinterScaleHeight ScaleHeight PrintData PrintingLbl_Click StartPrintTimer Enabled StartPrintTimer_Timer App_PrintCancel Remove_Items_from_Sysmenu Center_DialogBox_in_Form AppMain Place_DialogBox_in_Forma APP_NAME pause PrintDataError ExitPrintData MB_ICONEXCLAMATION SaveFile IDCANCEL offers CancelCmd_Click PrintData This routine will print a file to the DEFAULT printer. The dialog is modal but still allowing the user to CANCEL the print. The routine uses VB functions to determine page size for page breaks. A fudge of one less line is used to protect for VB errors with LaserJet III's. Determine the available space on the printer page -1 is fudge Page: Printing Page : 1" Allow the user to cancel the printn Printing has been cancelled. Printing Page : Cannot print;" check to ensure the printer is installed correctly and your disk has sufficient available space. Form_Load StartPrintTimer_Timer